home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / basic / ace24dist.lha / ace24.lha / include / ace / fexists.h < prev    next >
Text File  |  1996-09-10  |  337b  |  20 lines
  1. /* FEXISTS(x$) -- returns true if file exists otherwise false.
  2.  
  3.   Author: David J Benn
  4.     Date: 28th February 1993,
  5.       2nd January 1994 */
  6.         
  7. sub fexists(x$)
  8.   if x$="" then 
  9.     fexists=0
  10.   else
  11.     open "I",#255,x$
  12.     if handle(255) <> 0& then 
  13.       close #255
  14.       fexists=-1
  15.     else 
  16.       fexists=0
  17.     end if
  18.   end if
  19. end sub
  20.